unit u_consultaprodutopromocao;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_consultapadraoabasgestao, FMTBcd, DB, DBClient, Provider,
  SqlExpr, ImgList, AdvOfficePager, AdvOfficePagerStylers, ExtCtrls, Grids,
  DBGrids, JvExDBGrids, JvDBGrid, AdvGlowButton, StdCtrls, AdvEdit,
  frm_empresafilial, Buttons, ToolWin, JvExForms, JvScrollPanel, DBAdvEd,
  AdvOfficeButtons, DBAdvOfficeButtons, AdvEdBtn, DBPlannerDatePicker,
  AdvGroupBox, frm_produto;

type
  TFRM_ConsultaProdutoPromocao = class(TFRM_ConsultaPadraoAbasGestao)
    FR_EmpresaFilial1: TFR_EmpresaFilial;
    edtPercDescto: TDBAdvEdit;
    DBAdvEdit3: TDBAdvEdit;
    DBAdvEdit4: TDBAdvEdit;
    DBAdvEdit6: TDBAdvEdit;
    edtInicio: TDBPlannerDatePicker;
    edtTermino: TDBPlannerDatePicker;
    edtAbreviacao: TAdvEdit;
    edtEmbalagem: TAdvEdit;
    cbEstoque: TDBAdvOfficeCheckBox;
    DBAdvOfficeCheckBox1: TDBAdvOfficeCheckBox;
    cbSituacao: TDBAdvOfficeCheckBox;
    DBAdvEdit5: TDBAdvEdit;
    edtQtdeMax: TDBAdvEdit;
    DBAdvEdit1: TDBAdvEdit;
    edtCodProduto: TDBAdvEdit;
    btnPesqProduto: TAdvGlowButton;
    edtProduto: TAdvEdit;
    btnCadProduto: TAdvGlowButton;
    procedure FR_EmpresaFilial1btnPesqEmpresaClick(Sender: TObject);
    procedure btnPesqProdutoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_ConsultaProdutoPromocao: TFRM_ConsultaProdutoPromocao;

implementation

uses u_pesquisaproduto, u_dm_geral;

{$R *.dfm}

procedure TFRM_ConsultaProdutoPromocao.FR_EmpresaFilial1btnPesqEmpresaClick(Sender: TObject);
begin
  inherited;
  FR_EmpresaFilial1.btnPesqEmpresaClick(Sender);  
end;

procedure TFRM_ConsultaProdutoPromocao.btnPesqProdutoClick(Sender: TObject);
begin
  inherited;
  {with TFRM_PesquisaProduto.Create(nil) do
  try
    if ShowModal = mrOK then
    begin
      edtCodProduto.IntValue := cdsPesquisarCOD_PRODUTO.AsInteger;
      edtProduto.Text        := cdsPesquisarDESCRICAO.AsString;
      edtAbreviacao.Text     := cdspe
    end;
  finally
    FreeAndNil(FRM_PesquisaProduto);
  end;}
end;

end.
